;; -*- Coding: utf-8; Mode: scheme; -*-
;;

;; Regression test for improvement in ROS-304 (https://github.com/rchain/rchain/pull/137).
;;

;; This (improper) use of defExpander caused a segfault
;;
(defExpander (ros-304 body) (new RequestExpr 'display body "\n"))
(ros-304 (= (+ 1 2) 3))

;; Ask for clean exit.
(exit)

;; Local Variables:
;; indent-tabs-mode: nil
;; fill-column: 79
;; comment-column: 37
;; End:
